home *** CD-ROM | disk | FTP | other *** search
- set action $1
- set options $2
- set source $3
- set ofafiles $4
-
- ifglobal UNIX {;} else {
- Unix
- set nounix
- }
- if UNIX in "26" {
- set all *
- } else {
- set all *.*
- }
- ifempty ofafiles {
- rem Usage $0 action options sourcedir files
- rem Example $0 rm -i /bin *.ttp
- } else {
- files -qd $source/$all
- foreach cf in FILES do
- $@ $action $options $source/$cf $ofafiles
- endfor
- $action $options $source/$ofafiles
- }
- iflocal nounix {
- nounix
- }
-